function [discount,beca,stipend] = u34_2010(math,lang,demrecode,his,sci,nem)
%% Universidad de Talca
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);

%Beca Para Puntajes Destacados
discount=((lm>=800) + (math==850) + (lang==850) + (his==850) + (sci==850))>0;

%Beca Ingenier'ia en Bioinform'atica
auxdiscount=((lm>=730).*(nem>=702).*(demrecode==3409));
discount=max(discount,auxdiscount);
stipend=214555.5*((lm>=730).*(nem>=702).*(demrecode==3409));

%NO BVP

end
